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The following manual assumes some understanding of the BASIC 
language. Exceptions to the conventional BASIC rules will be 
spelled out and examples given where applicable. This BASIC has 
been written using a single level interpreter and structured for 
maximum speed within the limitations of the RCA 1802 Microprocessor. 


It is first valuable to understand how BASIC (and all of its 
work area) is allocated in memory. The body of BASIC is called 
the interpreter and resides in memory from 19%@ to 3FFF. The 
interpreter does not write on itself and can, therefore, run out of 
ROM. Customized I/O routines have been developed for the VP 
microcomputers and are located in memory at {899 to @FFF. The video 
display uses 1-K bytes of this memory from %C@%, so that use of the 
VIP operating system will not conflict with BASIC. Also, memory from 
$190 to P7FF is not used by BASIC or the I/O routines and therefore 
can be set up by the user for frequently used machine language sub- 
routines. BASIC, like most other higher level languages, requires 
some scratchpad area in RAM. This "work area" resides in memory from- 
40990 to 41FF. The user space is that portion of memory where the user 
generated BASIC program is stored. It is set up to begin at 4299 and 
extend to the end of RAM space. Several exceptions to this rule exist 
including moving the start of user space further back in memory. 


This feature will be described in further detail under the 
command description of DEFUS (define user space). Another exception 
limiting the back end of user space is. memory allocated to data 
storage. Any arrays or strings that are generated by a BASIC program 
are stored in memory at the end of the used program space. For 
clarification on where the end of program is or where the end data is 
see the command description of EOP and EOD. Finally, the BASIC inter- 
preter and the user program itself makes use of a general stack, pointed 
to at all times by R2. This stack is located at the top of the last 
page of available RAM with 7FFF as the upper limit. 


In summary, the memory allocation can be shown as follows: 


Protected Memory G1 QG-O7EF 

VP I/O Routines Q800-OFFF 

Interpreter 1009-3FFF 

Work Space 40OG-41FF 

User Space 4200-End of Program 

Strings and Arrays End of program - Start of Stack 
Stack , Rest of Memory. (to 7FFF max.) 


Note that BASIC compacts the statements as they are entered 
resulting in a substantial decrease in user program memory require- 
ments. The LIST command unpacks the statements so that this process 
is invisible to the user. 
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This version of BASIC contains software routines to utilize 
the VP microcomputer's video display circuitry for output and an 
8-bit parallel ASCII encoded keyboard connected to .the parallel 
I/O interface of the computer. These I/O routines use the follow- 
ing flag assignments: 


EF4 - Keypress strobe from keyboard. 

Read input port for data from keyboard. 

Q - Turns on.tone when a keypress is entered. 
Latches a frequency to the output port, for use 

_with the VP-595 Simple Sound Board. 
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BASIC communicates with these I/O routines through two 'RAM 
hooks." which can be altered to allow custom I/O routines. When 
BASIC is entered, these I/O hooks are written into the RAM work 
page. ts 


498A - 488B - 2 byte address of INPUT routine 
4Q8E - 498F 2 byte address of OUTPUT routine 


The address of a custom I/O package may be inserted into the work 
page after entering BASIC via a POKE command. However, everytime 
one leaves BASIC and returns the custom I/O hook will have been 

‘ overwritten by the I/O links provided in BASIC. 


Another alternative is to overwrite the BASIC table that contains 
the addresses of the provided routines with the addresses of the 
custom I/O routines. This way, everytime one enters BASIC, the 
custom I/O will be selected. The address of the pertinent table space 
is as follows: , 


205C - 25D 2 byte address of BASIC INPUT routine 
2866 - 2861 2 byte address of BASIC OUTPUT routine 


Either of the above table entries (located in the body of the 
BASIC interpreter) can be changed, and the entire BASIC interpreter 
re-taped* to make the new I/O routines permanent so when BASIC is 
brought up the custom I/O routines will be selected. 


In line with writing one's own I/O routines, the following 
should be considered. BASIC is written almost entirely using the 
SCRT (Standard Call and Return Technique). The data (ASCII 
characters) is passed to and from the I/O routines via the COSMAC 
'D' register. It should also be noted that BASIC temporarily 
stores the ASCII data in RF.1 as it passes the data back and forth. 


*See section on "Bringing Up BASIC" 
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Any custom I/O package should be written with the following rules in 
mind: 


1. Any registers (other than RF) must be saved on the stack 
(pointed to by R2) prior to use. Upon re-entering BASIC, 
the original contents of these registers must be restored. 


2. The I/O package is entered with R3 as the program counter 
and ends with a D5 instruction to return to BASIC. 


3. The input routine should have the ASCII data in the 'D' 
data register just before executing a D5 back to BASIC. 


4. The output routine should pick up the ASCII data from 'D' 
data register upon entry. 
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Generating a BASIC program consists of writing one or more 
statements (each separated by colons) on a line and assigning 
that line a line number. When the program is run, BASIC executes 
each of the lines in numerical order starting with the lowest 
line number. Line numbers may be entered in any order. BASIC 
will re-arrange them numerically. Therefore, one can insert 
lines into a program at any time. A line can be changed by typing 
in the line number of the line to be changed followed. by the 
corrected line. To delete a line from a program, simply type the 
line number to be deleted, followed by a carriage return. 
Executing a LIST instruction will show the resultant program. 
Another method of altering a line during entry is via a CTRL H. 
This will backspace the cursor, eliminating the previous character 
entries. A DEL during any line entry will have the effect of 
totally ignoring what has been typed on that line thus far. 


It was mentioned earlier that each line of the program is 
assigned a line number by the programmer. That number has a 
range of 1 to 65534. A word of CAUTION is necessary at this time. 
Attempting to use line number 65535 will result in a self-destruct 
of the program space and possibly the interpreter. The reason is 
that BASIC has already used that line number as an "implied" END 
statement. Therefore, an END statement is usable but not necessary 
in this version of BASIC. 


A final restriction on program entry is that any BASIC line 
cannot exceed 95 characters. If an attempt is made to exceed 95 
characters an automatic backspace is issued by BASIC prohibiting 
any further character entries. At that time the programmer can 
input backspaces (CTRL H) until the cursor is at a convenient 
point in the line at which time the line can be terminated with 
a carriage return. 
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Most BASIC. Statements may be executed in one of two ways -- 
direct execution or program execution. Direct execution means 
exactly what it implies. The statement entered is executed 
directly, or immediately. Any statement which is directly 
executable (as defined in the statement table) may be entered 
without a preceding line number. As soon as the line is completed 
(a carriage return entered) the command is executed. 


For example, in response to the BASIC prompt (>), the pro- 
grammer types the following: 


PRINT "THIS IS A TEST" 
BASIC would immediately respond with: 
THIS IS A TEST 
The program mode of execution occurs when the statement is 
preceded by a line number. Execution of these statements do not 


occur until the program is set into the execution mode by the direct 
execution of a RUN statement. 
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The entire BASIC vocabulary can be split into three different 
categories --- statements, functions, and operators. 


STATEMENTS 


Statements are keywords which can be executed in either the 
direct mode or the program mode or both. The following table 
lists all of the executable statements in all of their forms. It 
is also shown whether each is directly executable, program exe- 
cutable, or both. 


STATEMENTS DIR. EXEC. PROG. EXEC. 


RUN expr 


PRINT x 
PR xX 
GOTO expr 

1F* x 
INPUT™ 

LIST Xx 
LIST expr 
LIST expr, expr x 
GOSUB expr 

RETURN 

DIM var(expr), var(expr),.... 

DIM var(expr, expr), var(expr),... 
FOR var=expr TO expr STEP expr 
NEXT 

NEXT var 

FIXED expr 

POKE (expr, expr) 

DEFINT 

DEFINT var 

MEM 

PSAVE 

PLOAD 

DSAVE 

DLOAD 

DEFUS expr 

EOP 

EOD 


* 


x x 
MM MK OM OM MK OO OOO OO OO 


x MM KK MX MM MK OX 
x xX 
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« STATEMENTS DIR. EXEC. PROG. EXEC. 


DATA* 
READ* 
RESTORE 
WAIT (expr) x 
CALL (expr, expr, expr) Xx 
EXIT 
+PLOT* 
+GOKEY expr 
+PpT=* 
+GET (expr ) 
+SHOW* 
+STORE (expr ) 
+TONE* 
+TIMER* 
+CLC 
+COLOR* 
+TVON 
+TVOFF 


*< 
MxM KM MK KM KK XK KO OX 


MMM KM KM KK XM 


*These statements require further explanation as to their 
possible forms. Details will follow under the individual descriptions. 


+Particular to VP-70]. BASIC 
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Functions are keywords which return a vaiue to BASIC. They may 
stand alone or be used in conjunction with other functions to form 
expressions. A list of the functions are as follows: 


FUNCTIONS 

SIN (expr) 

cos (expr) 

ATN (expr) 

SOR (expr) 

LOG . (expr) 

INT (expr) 

ABS (expr) 

CHRS (expr, expr...) 
ASC (string name) 
LEN . (string name) 
RND (expr) 

PEEK (expr) 

USR (expr) 

USR (expr, expr) 


INUM (expr) 

FNUM (expr) 

MIDS (string name, expr) 

MIDS (string name, expr, expr) 
TAB (expr) - 

SGN (expr) 

PI 
+TIME 
+KEY 

+HIT 

@ followed by 4 hex characters. 


# followed by 2 hex characters. 


Also included in the above list are variables, arrays, and integer 
or floating point numbers. Some of the functions are restricted as 
to how or where they may be used. For example, TAB may only be used 
in a PRINT statement. Any restrictions or peculiarities will be pointed 
out in the individual descriptions. 


tparticular to VIP BASIC 
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Operators are symbols which are used in either of two ways. 
Some operators are used to tie together functions in a mathematical 
way to form expressions while other operators are used as delimiters . 
in certain statements or functions. A list of the operators defined 
in this version of BASIC are as follows: 


OPERATORS 


+ 


addition, string concatination 
subtraction 

multiplication 

division 

exponentiation (4 t 3=64) 

separates statements in a single line 
PRINT delimiter 

PRINT delimiter (horizontal tab) 
quotes enclose a string of characters 
( groups functions 

) groups functions 

> greater than 
< 

< 


SC i air a | 


less than 
> not equal to 
o= -greater than or equal to 
<= less than or equal to 
= equal to 
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Before describing each of the commands it is important to point 
out some of the notation used in the descriptions. The following 
notation will appear: 


‘expr 
var name 

string name 
string 

string function 


The note "expr" indicates any arithmetic expression. It- may 
consist of anything from a single number, a single variable, a 
function, or a group of functions tied together with arithmetic 
operators. The following are some examples of expressions: 


5 

A 

K(5) 

4*K(5) 

SIN (45) 
3*SIN(45) +.5 
3* (2+A) / (B+C) 


The mode of any expression is defined by the mode of the first 
term in that expression as discussed under MIXED-MODE operation. 


The note "var name" refers to any of the 26 variables A-Z or 
array names A(expr)-Z(expr). 


The note "string name" refers to any string name AS$-Z$ along 
with any string array entry --- AS$(expr)-Z$(expr) . 


The note "string" refers simply to any string of alphanumeric 
characters (normally enclosed in quotes). 


The note "string function" refers to any string or string array, 
any string of characters, the function MIDS, or any concatinated 
strings. 
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The following is now a description of each of the executable 
statements, followed by a description of each of the functions. 


REM -~- 


CLD --- 


CLS --- 


NEW --- 


When placed at the start of any BASIC line, REM serves 
to ignore the entire line. It is listed but ignored 
during execution. It's purpose is to simply document 
the program. 


Clear Data - When executed resets all string and array 
pointers to their initial states. Effectively, all 


strings and arrays are erased. 


Clear Screen - This statement simply will clear the 


screen and home the cursor to the upper-left-hand corner. 


‘Serves to.totally initialize BASIC, the user space, and 


all data space. This means that the user generated BASIC 
program is erased and all string and array pointers 
initialized. In addition, a CLS command is auconesaEeety. 
executed to clear the screen. 


Sets BASIC into the program execution mode. BASIC 
searches for the lowest line number and begins executing 
each line in numerical order. Before beginning execution, 
the RUN statement clears all array and peeing data space 
to make room for new data. 


RUN expr --- Run starting at a line number - This statement is 


END --- 


similar to RUN (with no trailing expr) in that it sets 

BASIC into the execution mode. But, BASIC begins execution 
at the line number specified by "expr". If no such line 
number exists, an error code will. be generated. In addition,. 
this RUN statement does NOT clear the data space. This 
enables the programmer to execute a program with previously 
generated data: (strings or arrays). A word of caution -- 
arrays may not be re-dimensioned. Therefore, if running a 
program with preloaded arrays make sure to begin execution 
past the DIM statement. 


End of program - Serves as a stop or end. It terminates 
program execution and returns BASIC to the direct execution 


-mode. An END statement may be placed anywhere and any 


number of times in a BASIC program. In fact, the END state- 
ment may also be deleted altogether if desired. An implied 
END already exists at line #65535. 
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LET. var name = expr --- Assigns the value of the "expr" to the 
"var name". The. mode of the variable name defines the 
mode in which the expression will be evaluated. 


The LET keyword itself is optional and may be omitted. The 
following are examples of legitimate LET statements: 


LET A=1 

B=2*A 

LET K(B)=SIN(A+2) 
R(5)=2*K(B) 


LET string name = string function --- This is exactly the same 
as the previous LET statement. The LET keyword is 
optional. The command serves to assign a set of alpha- 
numeric characters to a "string name". Some examples 
are as follows: 


LET AS="HELLO" 
BS=AS$+"GOODBYE" 

AS (5) =MIDS$ (AS,1,3) 

LET BS (2)=AS+AS (1) 

C$ (19) =BS (N) +AS$ (5*3/A)+C$ 


Note that in the LET statement all strings of characters must 
be enclosed in quotes. 


PRINT or PR --- PR is used as an abbrevaiation for PRINT. When 
listed all PR's are replaced with PRINT's. The purpose 
of this statement is to output to the I/O routines any 
"expr" or "string function" as defined earlier. Each of 
the items to be printed must be separated by a legitimate 
delimiter (either a comma or a semicolon). Each of the 
delimiters serve a special function. When a comma is 
used, the next item to be printed is placed at the next 
eighth column increment. If a semicolon is used, no spaces 
are inserted and the next item is printed directly after 
the last. The semicolon and comma also serve to inhibit 
the carriage return at the end of PRINT statement. There- 
fore, the next PRINT statement encountered in the program 
will begin where the previous one left off. If a PRINT 
statement is used all by itself, then a carriage return/ 
line feed is outputted. There are two functions which 
are usable ONLY in a PRINT statement. They are TAB(expr) 
and CHRS(expr). See the descriptions of each for details. 
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Examples of legal ©R statements are as follows: 


PRINT 5 

PRINT A 

PR (A+B) /C 

PR A,B, 1234,C(5) 

PR "THE VALUE OF A= ";A 
PR AS(2),A,B; 

PR AS(1)+AS(2) 

PRINT MIDS (AS,1,2) 
PRINT TAB (A+B) ;19;TAB (3) ;E 
PRA, 

PR 


Note that when more than one arithmetic expression 
appears in a PRINT statement, each expression may be 
evaluated in a different mode. 


GOTO expr --- Unconditional branch - This statement transfers execution 
immediately to the start of the line number specified by the 
"expr". If that line number does not exist, an error message 


is generated. Examples are as follows: 


18 GOTO 59 
1% GOTO A+B 
1Q GOTO 199* (A-B) 


IF string function = string function THEN statement 

IF expr { delimiter } expr THEN statement --- A Conditional Statement - 
This statement is NOT a conditional branch as in some other 
BASIC's. It tests for a condition and if the condition is 
met, a statement or group of statements (separated by colons) 
are executed. If the condition is not met then execution 
continues at the next line number. In the case of comparing 
string functions, an equal sign is the only legal delimiter. 
In the case of arithmetic expressions the following are legal 


delimiters. 
= equal to 
<> not equal to 
> greater than 
< less than 
3 greater than or equal to 


<= less than or equal to 
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The mode of the first expression defines the mode of the 
second expression. An example of a conditional statement 
is as follows: 


19 IF A=B THEN PR A: WAIT(2@%) : CLS : GOTO 299 
28 PRB 


_In this case, if the value of A is equal to the value of B 
then the value of A will be printed, a delay will occur, 

the screen will be cleared, and execution will continue at 
line 29%. If A were not equal to B, then the value of B 
would be printed and execution would continue from line #29 
onward. One additional point to be made is that the keyword 
THEN is optional and need not be used. A common mistake 

to be avoided is the following: 


IF A>B THEN 209 


Anything to the right of THEN (if it appears) is to be an 
executable statement. The number 28% is not an executable 
statement. The corrected version would be as follows: 


IF A>B THEN GOTO 22 or 
IF A>B GOTO 269 


Some more examples of legal IF statements follow: 


18 IF A(2)*B(1)>=C*SIN(A) PR A : GOTO 59 

18 IF AS$(2)="LIST" LET B=3 : GOTO 199% 

18 IF BS$(A+B)=MIDS(A$,2,4) PR"OK" 

16 IF MID$(AS$(5),2,4)="EBCD" PR"MATCH" : GOTO 529 
19 IF AS=BS$+C$ THEN GOSUB 2% : CLS : PR"DONE" 

19 IF A=INT(S/5) IF B>1f IF C<5 GOTO 599 


Note the multiple conditions in the last example. If any 
of the conditions are not met, execution will continue at 
the next line number. If all of the conditions are met, 
execution will finally get transferred to line #5%% via the 
GOTO statement. It follows that the GOTO statement could 
have been any executable statement. 


INPUT var name, var name, ... 

INPUT string var name --- Input statement - When BASIC encounters 
an INPUT statement, it stops and issues a question mark as 
a prompt. It is then waiting for a programmer response. A 
list of variable names may appear after the INPUT statement. 
Each of the variable names must be separated by a comma. In 
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response Lo the BASIC prompt (2), the programmer may answer 
with any expression or group of expressions separated by 
commas. If the INPUT statement has after it three variable 
names and the programmer responds with only two expressions 
then BASIC wiil issue another prompt (?) waiting for the 

third expression. Conversely, if the INPUT statement has 

only one variable name and the programmer responds with two 

or more expressions, then BASIC will go on. When it enounters 
another INPUT statement it will pick up the last unused 
expression without issuing another prompt. It will continue 
to do so until all of the inputted data is used up. At that 
time another prompt (?) will be issued. The data that is 
picked up is assigned to the associated variable name as it 

is inputted. The mode of the variable name defines the mode 
in which the associated inputted expression will be 

evaluated. 


Note that an INPUT statement may not contain both string 
variable names and normal variable names at the same time. 
Furthermore, each INPUT statement containing a string 
variable name can contain one and only one name. This is so 
that in response to an INPUT AS command, the programmer can 
answer with a string of characters with no quotes. The 
carriage return marks the end of the string. The following 
are legal INPUT statements: 


19 INPUT A,B,C(1) 
1g INPUT A(1) ,A(B) 
1 INPUT AS 

1@ INPUT BS(B) 


The following are incorrect INPUT statements: 


16 INPUT AB (no delimiter between variables) 
1@ INPUT AS,BS (multiple string names forbidden) 


INPUT "String" var name, var name, ... --- This INPUT statement is 
identical to the above except that directly after the keyword, 
INPUT, a quote appears allowing a message to be printed prior 
to the question mark prompt. No delimiter is used before the 
first quote or after the last. 


LIST 

LIST expr 

LIST expr,expr --- List the program - This command, with no expression, 
will list the entire program in user space. If one expression 
exists, only one line, the number of which corresponds to the 
value of the expression, will be listed. Likewise, if two 
expressions are given (separated by commas) the listing will 
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start and end at the respective lines corresponding to the 
values of the expressions. If, at any time, an expression 
evaluates to a number which is a non-existent line number, 
then the nearest line number after will be listed. 


GOSUB expr --- Subroutine call - This statement is identical to the 
GOTO statement with the exception that the program remembers 
where the GOSUB occurred. When BASIC encounters a RETURN 
statement it will return to the statement following the last 
GOSUB statement executed. In this way, subroutines may be 
nested as many deep as memory will allow (the stack grows as 

' the number of nested GOSUB's grows). An example of the GOSUB 
statement is as follows: 


5 A=2969 

1 GOSUB 10% : GOSUB 1999 

2 GOSUB A 

39 END 

1898 PR"DONE --" 

1919 RETURN 

2020 PR "FINISHED": GOSUB 399% : GOTO 1919 
3900 PR "COMPLETE" : RETURN 


Results in the following being printed: 


DONE -- 
DONE -- 
FINISHED 
COMPLETE 


RETURN --- Return from a subroutine call - Return simply marks the end 
of a subroutine. Execution returns to the statement following 
the last GOSUB executed. 


DIM var name(expr), var name(expr,expr), ... 

DIM var name(expr,expr), ...--- Dimension arrays - This statement serves 
to reserve memory for arrays of numbers. These arrays may 
be one dimensional or two dimensional. The variable name (A-2Z) 
is the name of the array. The expression defines how large 
the array is in one or both dimensions. See the discus- 
sion of arrays and their size limitations. The mode of the 
array (floating point or integer), depends on whether it's 
associated variable name has been defined as either integer or 
floating point. For instance, if all variables A-Z are floating 
point then all arrays will be floating point (independent of 
the mode of the expression defining it's limits). If variables, 
A,B, and C are defined as integer, then arrays named A,B, and C 
(if used) will be defined as integer. Multiple arrays may be 
dimensioned in the same DIM statement as long as each array is 
separated by a comma. 


If memory is exceeded when dimensioning an array, an error message 
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will result. Trying to use an array element which has not 
been previously dimensioned will also result in an error 
message. Finally, an array may be dimensioned ONLY ONCE. 
Trying to re-dimension an array will give an error. One must 
use a CLD command to clear all data space before re-dimension- 
ing any or all arrays. The following is an example of a 

DIM statement: 


DIM A(1,19) ,B(2p) 


The above sets aside space for 19% numbers (1x1) with the 
names ranging from A(1,1) to A(1%,1@) and 28 numbers with 
names ranging from B(1) to B(2f). 


The dimension statement can be used in the direct mode of 
execution if desired. One final word on arrays --- Any 

arrays generated by a program remain in tact after program 
execution is completed. One can interrogate the contents of 

any array in the direct mode via a PRINT statement. The 

array remains intact until a CLD is executed, or any editing 

to the program is done. Note that if a RUN expr is executed 

the array has not been deleted and re-dimensioning will result 
in an error message. For that reason, one should begin 
execution after the DIM statement if one wants to use previously 
generated data. The array data (as well as the string data) 
exists directly after the user space. Any editing of the original 
program will alter the use space and, thus, destroy the data. 


FOR var = expr, TO expr, STEP expr, --- This statement assigns to a 
variable (A-Z) the value of expry- The program continues 
executing until a NEXT statement is encountered. At that time 
the value of the variable is incremented by the amount defined 
by expr; (which may be either positive or negative). (Expr,-var) 
is then evaluated and compared to the sign of the step. (Assume 
here that zero has a positive sign). If a match in sign does 
not occur, execution continues past the NEXT statement. Ifa 
match in sign did occur, execution resumes at the first state- 
ment after the last FOR statement and continues through the 
loop. At any time during the loop, one can modify the value of 
the variable name by any available means (i.e. a LET statement). 
Also note that the mode of the variable name sets the mode in 
which €xpr,, expr, and expr, are evaluated. Finally, if the 
STEP is deleted, a step size of one is assumed. The following 
are examples of the FOR/NEXT loop: 


1 FOR A=1 TO 3 : FOR B=1 TO 6 STEP 2 
20 PR A,B 

38 NEXT B : NEXT A 

48 PR "DONE" 
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would result in: 


WWWNNNEP HE 
OUWPUwWE Uwe 


iw] 
e) 
2 
fe] 


An example of a negative step is as follows: 


1M FOR A=1% to 6 STEP -1 
‘20 PRA 

30 NEXT 

48 PR "DONE" 


would result in: 


1g 

9 

8 

7 
DONE 


Finally: 


1% FOR A=1 TO 19 
26 IF A=5 LET A=9 
30 PRA 

49 NEXT A 

58 PR "DONE" 


would result in: 


1 
2 
3 
4 
9 
1p 
DONE 
NEXT 
NEXT var --- This statement closes the FOR-NEXT loop as described in 


the FOR statement. A note should be made with respect to 
the variable. If the variable name is omitted, then the NEXT 


STATEMENT DESCRIPTIONS Page 19 
statement returns to tne last FOR stavement and continues. © 
If the variable name is included, BASIC will check to see 
if it matches the variable name used in the last FOR state- 
ment. If it does not, an error message is issued. 


EXIT expr --- This statement is simply an unconditional branch to 
a line number defined by expr. It is intended for a premature 
escape from a FOR/NEXT loop or a subroutine. One precaution 
should be noted. If subroutines (or FOR/NEXT loops) are 
nested, the EXIT command is designed to transfer control to 
a line number within the next level down of nesting. For 
example, if FOR/NEXT loops are nested four deep and it is desired 
to prematurely branch outside of the fourth FOR/NEXT loop, 
BASIC expects to be somewhere in the third FOR/NEXT loop after 
the EXIT has been executed. An EXIT may then be taken to some 
line within the second FOR/NEXT loop, and so on. This command 
-is used instead of the standard GOTO and is designed to clean 
up all of the modified stack pointers which result from a 
FOR/NEXT or a subroutine call. 


FIXED. expr --- This. statement, when executed, simply formats the 
printing of all floating point numbers. The value of the ex- 
pression defines how many digits to the right of the decimal 
point will be printed. Trailing zeroes will be filled in to 
complete the number. If necessary, the number will be truncated, . 
not rounded. The expression must evaluate to a number between 
@ and 6. If a number greater than 6 is entered BASIC reverts 
back to its normal mode of outputting numbers. For example: 


FIXED 2 

PR 123 will result in 123.29 
PR 123.567. will. result in 123.56 
PR 6E7 _..will result in .6QE8 
FIXED 7 


PR 123.5¢ will result in 123.5 


POKE (expr), expr, ) +-- This statement should be used with extreme 
caution. It is used to write any location in memory with any 
data. The location in memory is defined by expr, and the data 
is defined by expry - For example: 


POKE (589%,255) 
will place the hex equivalent of 255 (FF). in memory at the 
decimal address 5998. A more common (and much safer) 
approach is: 


POKE (@1F23,#FF) 


which places the hex data, FF, at hex location 1F23. See 
the definition of @ and # in the function descriptions. 
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DEF INT 

DEFINT var name --- Define integer variables - This statement, when 
executed without any var. name sets all variables (A-Z) and 
all arrays (A(expr)-Z(expr)) as floating point. If a variable 
name is included in the DEFINT statement, all variables and 
arrays from A up to and including the var. name will be set 
up as integer. For example: 


DEFINT D 


defines variables and arrays names A,B,C, and D as integer. 
A NEW statement will always revert all variables to floating 
point. It is for this reason that, if integer variables are 
to be used in a program, a DEFINT statement should appear 
early in the program. 


Note also that if a DEFINT is used with no variable name, it 
must end in a carriage return. That is, a colon may not be 
used to concatinate any further commands on the same line. 


MEM --- How much memory is left?? - When executed, MEM returns a 
decimal number representing the number of memory bytes left 
between the end of data (strings and arrays) and the end of 
the normal stack. Actually, the number returned is 256 less 
to allow for stack growth during program execution. Note 
that MEM is a statement which automatically prints the amount 
of memory left. It is NOT a function. For example: 


PR MEM is wrong!!! 
MEM is correct 


If MEM returns a negative number, it means that the end of 
data is "inside" the 256 bytes of margin and caution should 
be used in allowing the program to grow any further. No 
provision is made to account for the stack growing into pro- 
gram during program execution. 


PSAVE --- Program save - BASIC contains its own cassette routines. 
They use the Q line and EF2. When PSAVE is executed, the 
tape recorder should be placed in the record mode. BASIC 
will record everything from the start of user space to the 
end of program. 


The taping routine places on the tape a leader of approximately 
ten seconds along with the program and a four second trailer. 
When the taping is complete BASIC will return with a READY and 
a prompt(>) if in the direct execution mode. If BASIC was in 
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the program execution mode, the program would continue 
execution in the normal way. 


Finally, motor control is also provided by BASIC if the 
hardware is implemented. The motor control is recognized 
by looking at output port #7. Bit one of the outputted 
word controls the write motor. Bit zero controls the 
yead motor. If the two bits are ORed together, the motor 
will be controlled during either a tape write or a tape 
read (PSAVE or PLOAD and DSAVE or DLOAD). If the bit is 
set, the motor is turned on -- if it is reset to zero the 
motor is turned off. 


PLOAD --- Program load - The PLOAD statement clears the user space 
of any program or data and replaces it with a program tape 
(generated by PSAVE command). The PLOAD command is normally 
executed in the direct execution mode since it erases all 
program space. PLOAD also provides motor control as described 
in the PSAVE command (bit zero of the outputted word turns 
the motor on and off). 


DSAVE --- DataSave - This command is similar to PSAVE except that 
the memory saved on cassette now begins at the end of the 
program (start of data) and ends at the end of data. This 
provides the capability to save any program generated data 
(strings and/or arrays). 


DLOAD --- Data Load - This command loads from cassette any previously 
generated data (from a DSAVE). The data may be loaded 
with any BASIC program. That is, the data is automatically 
placed at the end of existing program space overwriting 
any existing data. CAUTION-Three points must be considered -- 


1) A PLOAD command wipes out previous data and then loads 
the program. Therefore, a DLOAD command must be executed 
AFTER a program is in user space. Any editing of the 
user space will also wipe out data. Therefore, if 
editing is necessary, a DSAVE should be executed to save 
the data (if desired), the program edited, and a DLOAD 
executed to return the data. 


2) The act of doing a DLOAD automatically dimensions any 
arrays within the stored data. When executing the 
program, re-dimensioning these arrays must be avoided. 
This is simple since a (RUN expr) must be executed to 
avoid wiping out previously generated or existing data. 
And the expr can be the line number following the DIM 
statements. Execution will then start after the DIM 
statement. 
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3) Strings are placed at the end of array space. If 
additional arraysare dimensioned after strings have 
been generated, the strings will be wiped out by the 
growing array space. For this'reason, all array 
dimensioning should be done before any strings are 
generated for permanent storage. 


Note --- If a program and it's data are to be stored, the 
following can be executed. 


PSAVE:DSAVE 
To reload the saved tape execute the following: 
PLOAD : DLOAD 
To execute the program execute the following: 
RUN expr 
where expr is the line number beyond any dimension statements. 


DEFUS expr --- Define the start of user space - This statement is 
provided to allow the start of program space to be moved 
further back in memory. This allows the programmer to create 
a "hole" in memory in which he can generate machine language 
routines. The "expr" defines where the program space will 
begin. In this version of BASIC the user space begins at 
hex 429%. The expression must evaluate to a number larger 
than 42%. -BASIC will round down the expression to give only 
even page increments of movement. If an attempt is made to 
define the user space at an address less than 428%, BASIC 
will self-destruct. Once a legal DEFUS is executed, the only 
way to get the program space back to 428% is by another DEFUS 
command to 428%. One interesting feature of moving the start 
of user program space lies in the PSAVE command. If a program 
has been generated at a "moved" location and it has associated 
with it some machine language routines, a-PSAVE command will 
save everything from 420% to the end of program space. That 
would include the machine language routines as well as the 
associated BASIC program. 


A subsequent CLOAD command will load in all of the above 
(machine language routines included) and will also re-define 
the start of user space to where it was when the tape was 
created. No bookkeeping is necessary. An example of the DEFUS 
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EOP --- 


EOD --- 


command is as follows: 


DEFUS @4398 or 

DEFUS @4359 moves the start of user 
space to 4399 

DEFUS @429% moves the start of program 
space back to its original 
location. 


A final word on using the "hole" created by a DEFUS 
command --- memory locations 42@9 - 422% are used in the 
SAVE taping routines and should be avoided when writing 
machine language routines. 


End of program - This statement is similar to MEM in that 
when executed (normally in the direct execution mode), 

it automatically prints the hex address of the end of the 
current program space. It can be typed at any time during 
program development to see where the end of program is 
located in memory. 


End of data - EOD is exactly the same as EOP except that it 
prints the hex address of the end of data (arrays and strings). 
The following is an example: 


EOP : EOD : MEM 
could result in: 


@4395 
@4355 
1536 


This indicates that the end of program is 4385, the end of 
data is at 4355, and 1536 bytes of memory are left for safe 
usage. EOD is valid only after data has been generated 
by running the program. (After DIM has been executed.) 


DATA expr, string function,... --- The DATA statement contains data to 


be used by READ statements. Each element in the DATA statement 
must be separated by a comma. Any string of characters must 
be enclosed in quotes. The DATA statement may appear anywhere 
in a BASIC program.’ The following are legal DATA statements: 


1 DATA 2*A,AS$(1),"HELLO",B 
10GB DATA 1,2,3,4 
5909 DATA SIN(45) ,SIN(60) ,SIN(90) 
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READ var name, string name, ... --- The READ statement is used to 
read data from the DATA statement and assign that data to 
a particular variable. Each time the READ statement requests 
more data, an internal BASIC pointer moves to the next piece 
of data in the DATA statement. When a DATA statement is out 
of data, BASIC will search onward for another DATA statement. 
If none is found an error message is returned indicating the 
lack of data. It is important to keep track of the var. 
names or string names in the READ statement and the corres- 
ponding data in the DATA statement. They must match in form 
-- strings go with string names and so on. An example of a 
legal. DATA/READ statement pair is as follows: 


5 DIM A(4) 

10 DATA 1,29,38,40 

2% FOR A=l1 TO 4 

3@ READ A(A) 

4% NEXT 

5@ READ A$(1),B,C 

68 PR AS$(1);B*C 

7% DATA "B*¥C IS EQUAL TO",29,32 


The result of the above is that the array A would be loaded 
as follows: A(1)=18 A(2)=28 A(3)=38 A(4)=4M. Line #697 
would result in: 


B*C IS EQUAL TO 699 


RESTORE --- This statement merely resets the previously mentioned BASIC 
pointer back to the start of the first DATA statement in the 
program. This allows the multiple use of DATA in one program. 


WAIT (expr) --- This statement provides a way to insert a delay in the 
execution of a program. The length of the delay is about 1/6 


second times the value of the expression. An example of 
one application of the WAIT command is as follows: 


1% INPUT A$(1) 
28 PR "MESSAGE IS";AS$ (1) 
3Q WAIT(5#Z) : CLS : GOTO 19 


This allows the message to be viewed for some period of time 
before the screen is cleared and execution continued. 


CALL (expr) 

CALL (expr, ,expr 9) 

CALL (expr,,@XPro, expr 3) --- This statement provides the link between 
BASIC and the world of machine language programming. It serves 
as a machine language subroutine call. It transfers execution 
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to a machine language subroutine, the address of which is 
determined by expr ,. The machine language routine should 
be written with the following rules in mind: 


1) The program counter upon entry into the subroutine is 
R3. 


2) Transfer is made back to BASIC via a D5 instruction. 


3) The ML routines have free use of R8, RA, RC, RD, and RE. 
If any other registers are to be used, they should be 
saved first on the stack and restored before returning 
to BASIC. 


4) The stack is available for use (pointed to by R2) as long 
as it returns as it was left. 


Any of the expressions (expr), exprz, or expr3) may be 
expressed in either integer of floating point. BASIC will 
automatically convert them to integer. The value of expr 

(if used) is then passed to the ML subroutine as a 16 bit 
binary integer number in R8. A second piece of data may also 
be passed to the ML subroutine in register RA. The value will 
be that of expr3. 


PLOT (expr), expr2) --- Plot statement - When BASIC executes a PLOT 
statement, it evaluates expr, and exprg as integer numbers 
.and uses them to place a point on the video display as X,Y 
coordinates. BASIC calculates the position using the lower- 
left-hand corner of the display as the 9,@ origin, to 
facilitate use of Cartesian coordinates. xX values are valid 
in range 9-63, Y values are valid from $-127. BASIC will 
convert to mcdulus the limit so values greater than the axis 
will 'wrap around' on the screen. 
5 CLS 

1@ FOR A=% TO 63 

28 PLOT(A,%) : PLOT(A, 127) 

3G PLOT(@,A*2) : PLOT(63,A*2) 

48 NEXT 


This will draw lines around the border of the video display. 
Note that if A is defined as an integer, the plotting will 
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occur much faster. 
5 CLS 
18 FOR A=% TO 63 
28 PLOT(A,63) : PLOT(#,A*2) 
3 NEXT 
48 FOR B=@ TO 69 
5% PLOT (B, SIN(PI/189 * B*6) *63+63) 
68 NEXT 


The above example will draw an axis pair across the screen 
-and then plot’a sine curve. 


GOKEY expr --- Conditional branch statement if a key is pressed - 
BASIC will evaluate the value of expr and branch to it if 
a key is pressed. The value of the key will be assigned 
to a variable named KEY. If no such line number exists, 
BASIC will give an ERROR. BASIC will continue execution 
to the following line if no key is pressed. 


1M GOKEY 39 
2 GOTO 19 
38 PR CHRS (KEY) 
48 GOTO 19g 


This program will wait for, then print any key pressed. 


PT="data" --- Pattern definition statement - The PT= statement is used 
in conjunction with the SHOW statement to display patterns on 
the video screen. BASIC expects to find a series of up to 
32 hexadecimal digits enclosed within mandatory quotes. Digits 
should be arranged as full bytes. If non-hex characters are 
used an error will be generated. The last PT= statement 
executed remains valid until another ore is defined. See 
examples with the SHOW statement. 


GET (expr) --- Get display statement - This statement will cause BASIC 
to evaluate expr for a memory address from which to retrieve 
1024 bytes of data to be placed on the video display. When 
used with the STORE statement, GET can be used to save and 
retrieve video information such as plots, graphs, pictures, 
etc. 


Examples: 


1g CLS 
28 GET(@ 1999) 


The first 1824 bytes of the BASIC interpreter will be 
displayed as binary bits on the video display. 
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SHOW (expr), expr) 
SHOW (expr), expr2, expr3, exprg) --- Show patterns on the video 
' display - This statement allows the programmer to define 
images, patterns, figures, etc. with a PT= statement and 
display them on the screen. BASIC evaluates expr}, and 
expry to determine the X,Y location, from the upper-lett- 
hand corner, of where to show the patterns. If expr3 
‘and exprg are used then the pattern can be repeated 
across the screen with expr3 providing the horizontal 
repeats and expr, giving the vertical repeats. 


Examples: - 


18 CLS 
29 PT= "FF818181FF" 
3% SHOW (9,8) : WAIT(199) 


Will show a box in the upper-left-hand corner. 


1g CLS 
26 PT= "FFFFFFFF" 
4 SHOW (%,9,8,32) 


Will fi11 the whole screen to white. 


1 CLS 

29 PT= "3838FFFFFFFF6666" 
36 FOR A= @ to 56 

46 SHOW(A,129) 

5@ WAIT (19) 

68 SHOW (A,12Q) 

78 NEXT 


Will drive a little car across the bottom of the screen. 


STORE :(expr) --- Store video display - When BASIC encounters this 
expression, the contents of video memory SC@% - OFFF will 
be placed in 1924 bytes of memory starting at the value of 
expr. Be careful! Do NOT destroy any of BASIC's work, program, 
I/O, or interpreter areas!- Use GET statement to retrieve 
the video information. 


TONE=expr --- Set tone duration in 1/6% seconds - BASIC will evaluate 
the value of expr as a modulus 255 number and assign it to 
an internal tone timer that decrements each 1/69 of a 
second with the TV interrupts. BASIC uses the Q line to 
gate the tone ON/OFF. 
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FREQ=expr --- Set VP-595 Simple Sound Frequency - This statement will 
-latch the value of expr, modulus 255 to the VP computer 
output port #3, which will set a desired frequency into 
the Simple Sound card.. Alternatively, this instruction 
can be used to send data out the port for user related 
peripherals. 


TIMER=expr -—-- Set internal timer - This statement will enable 
BASIC to initialize a 1 byte timer that decrements with the 
video interrupt... The timer's current value can be 
interrogated with the TIME function. 


DISPLAY (expr ,, exprz) --- Display at specific location statement - 
This statement's function is the same as a PRINT statement 
except BASIC will evaluate expr, and expr2 for X,Y coordinates 
of where to start displaying from the upper-left-hand corner 
of the video screen. The resultant values are where the upper- 
left-hand pixel of the first character will be located. 


5 CLS 

1Q DEFINT A 
20 A=P 

38 DISPLAY (g, 119)"A=" 
4 DISPLAY (8, 119) A 
59 A=A+1 
6% GOTO 49 


This example will display a continuously incrementing value 

of A at the lower-left-hand corner of the screen. When a 
DISPLAY statement is executed, the cursor remains located 
where the last PRINT statement left it. Therefore, the DISPLAY 
instruction does not effect the concurrent use of PRINT 
statements. 


TVOFF --- Turn video display off - This command will cause BASIC to 
disable the video output and suspend interrupts. Note that 
TIMER and TONE statements will not work properly when the 
interrupts are halted. 


TVON --~ Turn video display on - This command will turn on the video 
output and restart interrupts every 1/6% of a second. 
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' The following commands have been NO OP'ed out of the supplied 
version of the VP-~701 BASIC. However, the instructions can be 
reinstated by following their respective guidelines and use. 


CLC --- Clear the color map - This instruction will cause BASIC to 
clear the color map of the VP-590 Color board to white each 
time it is executed. To enable this feature change the 
memory byte @ 2D3 from #D5 to #F8. DO NOT USE if a color 
card is not in the system. 


COLOR 

_ COLOR (expr, expra, expr3) 

COLOR (expr, eXPpro, e€xpr3, eXpry, expr,) --- Set colors into the 
VP-590 Color board - BASIC will evaluate these statements 
as follows: 


Color without any arguments - will sequence through 


the 4 background colors 
BLUE > BLACK >GREEN *RED ....7 


Color with 3 arguments - BASIC will evaluate the value 
of expr; as a color code modulus 7, expry and expr3 will 
be evaluated to determine the X,Y location, from the 
upper-left-hand corner, of the byte to be colored. 
Because of the mirroring effect of the Color card, the 
byte will be 'reflected' 4 times throughout the display 
field. ; ; 


Color with 5 arguments - operates the same as the previous 
statement but also uses expryg and exprs to calculate X and 


Y repeats to fill blocksof color areas. 


Color Codes: 


O - Black 4 - Green 
1 - Red 5 - Yellow 
2 - Blue 6 - Aqua 

3 - Violet 7 - White 


NOTE: The VP-590.Color board is required for the use of color 
commands. DO NOT USE them if a Color board is not in the system. 


To activate Color statements change memory @ 1323 to #65 and @ 1329 
to #FB. 





FUNCTION DESCRIPTIONS Page 30 


cos 


SIN 


ATN 


SQR 


EXP 


LOG 


INT 


The following functions are provided in this version of BASIC: 


(expr) --- returns the cos of the angle determined by the 
value of the expression (expressed in radians). The 
function is a floating point function. 

(expr) --- returns the sin of the angle determined by the value 
of the expresion (expressed in radians). The function is a 
floating point function. : 

(expr) --- returns the angle (in radians) whose tangent is equal 
to the value of the expression. This function is a floating 
point function. : 

(expr) --- returns the square root of the value of the expression. 
The answer is also floating point. 

(expr) --- returns a floating point number of 2.71828 (e) raised 
to the power of the value of the expression. 

-(expr). --- returns a floating point number, the value of which is 
the natural logarithm of the value of the expression. 

(expr) --- returns the integer part of the floating point expres- 


sion truncating out the fractional part. The result is still 
in the floating point made. This is not to be confused with 
INUM. ; i , 


Examples of the above functions are as follows: 


PR SIN(45) 

A=INT (18*SQR(LOG(A*B) )) 
C=EXP (19+A) 

PR ATN(A*SIN(A) ) 


PI --- simply returns as its value 3.14159. 


ABS 


(expr) --- returns the absolute value of the expression. For 
example: 


PR ABS (-1*2) 
will print 29 


--- returns a random floating point number greater than or equal 
to zero and less than or equal to one. 
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RND 


PEEK 


USR 
USR 
USR 


SGN 


(expr) --- returns a random integer number greater than or 


equal to zero and less than the value of the expression. 


(expr) --- returns the decimal equivalent of the contents of 


Memory at an address determined by the expression. The 
decimal result defaults to floating point. 


(expr 7 ) 
(expr, expr 5) 
(expry, expr 5, @XPF 3) -~-- This function acts Saantiiy ‘as the CALL 


statement described earlier. The only difference is that USR 
is a function to be used as part of an expression. When 
encountered, a subroutine call is made to the machine language 
routine stored at expr,. Data may be passed to the subroutine 
in exactly the same way as the CALL. But in the USR, when D5 
is encountered in the machine language routine BASIC will 
return a 32 bit binary integer number as a value for the USR 


function. This 32 bit number will be constructed from R8 and 


RA. R8 provides the low order. sa bits and RA provides the 
high order 16 bits. 


An example might be: 


PR 2*USR(@3ClE, #2F)+A/D 


(expr) --- The value of this function is either +1,9,or-l 


depending upon the sign of expr. If expr is positive, the 
function returns a +l. If expr evaluates to zero, the 
function returns as its value of @. If expr is negative, the 
function returns a -1l. 


INUM (expr) --- simply converts the floating point expression to the 


integer mode, rounding down. This provides a means of forcing 
a particular function to the integer mode. 


For example: 
PR SQR(49) 
would result in: 
7. 


and 
PR ru (SOR 49) ) 


would result in: 


7 
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FNUM (expr) --- converts any expression to the floating point mode. 
It is the exact counterpart to INUM. For example: 


PR FNUM(2*3) 
would result in 6. 


CHR$ (expr,, expro...) --- This function is used and recognized only 
in the PRINT statement. It evaluates the expression and out- 
puts the corresponding ASCII decimal equivalent to the I/O 
routines. For example: 


PR CHRS (65) would result in a "A" being printed. 
PR CRSS$ (#42) would result in a "B" being printed. 
PR CHRS (#41,#42,#43) would result in ABC being printed. 


ASC (string name) --- Returns as its value the decimal equivalent of 
the ASCII value of the first character in the referenced 
string. The value returns in floating point as a default. 
If it has been preceded by any integer function it will be 
converted to integer. For example: 


AS (5) ="ARITHMETIC" 
B=ASC (A$ (5) ) 


The variable B would contain as its value, 65., the decimal 
ASCII value of the letter A. 


Another example: 


5 A$="TEST" 
1f FOR A=1 to LEN(AS) 
2 PR ASC(MID$(A$,A)) 
3 NEXT A 


would result in: 


54. 
45. 
53. 
54. 


LEN (string name) --- Returns as its value the number of characters 
in the specified string. The value returns in floating 
point unless preceded by an integer number or function at 
which time it is automatically converted to integer. The 


FUNCTION DESCRIPTIONS Page 33 
following is an example: 
AS="ARITHMETIC" 


PR LEN(AS) gives 1. (the length of A$) 

PR A*LEN(AS) gives 1g (assumes the variable A 
was defined as integer 
with one stored as its 
value) 


MIDS (string name, expr, ) 

MIDS (string name, expr), expr ) --~ This is a string function which, 
when executed, extracts a portion of the specified string. 
The first term, expr), defines which character (from the left) 
is to start the sub-string. Expr, defines the number of 
characters to be used in the sub-string. If exprg is not used, 
all of the remaining characters are used. The following is an 
example: 


AS="YES " 
BS=MIDS (AS,2,1) 


BS would then contain the letter "E". 


AS (19) ="EXPERIMENT" 
PR MIDS (AS(19) ,7,3) 


would result in "MEN" being printed. 


1 INPUT AS$(1) 
2% IF MIDS(AS$(1),1,1)="Y" GOTO 19 
38 GOTO 19 


The last example would wait until some word beginning with the 
letter “"Y" was inputted at which time the program would branch 
to line #199. 


Common commands, LEFTS and RIGHTS, can be implemented with the 
MIDS command in the following way: 


MIDS (AS,1-,1) is the same as LEFTS (AS) 
MIDS (AS,LEN(AS)) is the same as RIGHTS (AS) 


TAB (expr) --- Is really not a function in that it doesn't return a 
value of any kind. TAB is used and recognized only in the 
PRINT statement. It simply places the cursor at the horizontal 
position determined by the value of the expression. Printing 
continues from there on. For example: 


PR TAB(19);1 will print a 1 at column 19. 
PR TAB(1@) ;1;TAB(2Q) ;2 will print a 1 at column 19 
and a 2 at column 2¢ 
PR TAB(A) ;"*" will print a star (*) at column A. 
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@XxXxXX --- can be used at any time as an integer number. XXXX 
represents any four hexidecimal characters. The function 
returns the decimal equivalent. 


#XX --- Is identical to the @ except that it accepts only two hex 
characters and converts them to decimal. For example: 


PR @1994 results in 41@% being printed. 
PR #FF . results in 255 being printed. 
PR #FF+15 results in 27% being printed. 


The @ and # signs are typically used in the PEEK, POKE, and CALL 
commands. 


TIME --- is used to return an integer value of the remaining time 
since the last TIMER= statement. As an example: 


19 TIMER=199 
2@ If TIME <> G GOTO 2g 
36 PR "TIME IS OUT" 


will set the timer for 100/6% of a second and wait till 
time is up, then print out the message. 


KEY --- returns the value of the last key pressed during a GOKEY 
statement. The value is a decimal representation of the 
ASCII code. See GOKEY for example. 


HIT --- is used in conjunction with either the SHOW or DISPLAY 
statement. The value of 9 will be returned if no patterns 
intersected on the screen. A 1 will result when a "HIT" 
does occur. 


1g CLS 

20 PT="FFFFFFFF" 

3Q DISPLAY (9,129) “HIT=" 
4B SHOW (9,9) 

5% DISPLAY (16,12%)HIT 
66 GOTO 49 


This example will SHOW a rectangle on the screen and DISPLAY 
the value of HIT as it intersects. over itself. 
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BASIC handles numbers in one“of two ways, integer or floating 
point. Both types are stored as 32 bit signed numbers. In ‘the 
case of the floating point, 8 bits define a signed exponent while- 
the low order 24 bits represent a signed mantissa. The resultant 
number range is as follows: 


Integers: -~2147483648 to +2147483648 
Floating Point: -.17E38 to +.17E38 


The integers are accurate over the entire range. The floating 
point numbers are accurate to approximately six digits in the 
mantissa. It should be noted that calculations requiring extreme 
accuracy and higher speed should utilize the integer mode. 


Numbers may be entered in almost any format. The following 
are examples of legal number entries: 


1 1EG2 
1.2 -3E-19 
-3.5 4E-91 
~ pl 4E-1 
1flE2 4 
.11EZ2 199 


“Note that a mantissa is required when using scientific nota- 
tion. . The mantissa is limited to a maximum of nine digits (but 
still only accurate to approx. 6). The following are incorrect 
entries: 


E@2 (no mantissa) 
-12345678992E+5 (too many digits in mantissa) 


All numbers entered from the keyboard are stored as they are 
entered, that is, if they are typed in without a decimal point they 
are stored as integer -- if they are entered with a decimal or "E”" 
(symbolizing scientific notation) they are stored as floating 
point. When a program is listed via a LIST, numbers will appear 
as they were entered (integer or floating point). 


MIXED-MODE --- But what about mixed-mode expressions?? BASIC will deter- 
mine the mode of an expression by the mode of the first term in . 
that.expression. As the evaluation of that expression proceeds, 

BASIC checks each term in the expression and converts it automat- 

ically to the appropriate mode and continues the calculation. 


The ground rules for setting the mode of the expression are 
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as follows -- If a number begins any expression, that expression 
is assumed to be floating point (independent of whether the number 
was entered in integer or floating point). For instance, if one 
would type: 


PRINT 2*1 
the answer would return as: 


2p. 


indicating a floating point result. The "2" and the "1%" were 
stored as integer but since the expression begins with a number 
(2) it is assumed that the expression is to be floating point 
and each of the stored integer numbers are recognized as integer 
and converted to floating point. 


If a variable begins the expression, the mode of the 
variable sets the mode of the expression. Remember that A-? can 
be defined as integer via the DEFINT command. Suppose that the 
variable "A" is set to integer. Consider the following program 
as an example: 


5 DEFINT A 
10 A=10 

28 PR A*2g 
39 PR 2Q*A 


Note that in line number 19 the variable "A" sets that expression 

as integer since "A" had been defined as integer. (Note that the 
term expression is used rather freely in the case of a LET state- 
ment as well as IF and FOR as will be seen in future examples). . 

"A" now contains an integer 1%. In line #28, BASIC will output an 
integer 29% (with no decimal point) because "A" set that expression 
to integer. In line #39, BASIC would respond with a decimal 299. 
(note the decimal point) since the expression began with a number. 
The variable "A" was recognized as integer but converted to floating 
point. Consider the next example: 


1@ DEFINT A 
20 A=23.2 
39 PRINT A 


In line #29, variable "A" sets the mode as integer. The number 23.2 
is recognized as floating point. It is, therefore, converted to 
integer and stored in "A". It is important to note at this time 
that when any floating point number or function is converted to 
integer it is rounded to its nearest whole number. It is then clear 
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that line #3@% would result in the printing of an integer 23 
(no decimal point). Consider this example: 


19 FOR A=l TO 3 
28 PR "A=";A 
3@ NEXT 


The resulting output would be as follows: 


The simple addition of a DEFINT command is now considered: 


1% DEFINT A 

2 FOR A=1 TO 3 
30 PR "A=";A 
4% NEXT 


The result would now be integer as shown: 


ed 7 Hed 
WNH 


Note the absence of any decimal points. To convince yourself of 
the speed advantages of integer over floating point try the follow- 
ing: 


10 FOR A=O TO 5@¢0¢ 
2% NEXT 
39 PR "DONE" 


Run the program and note the execution time. Next, simply add line 
#5 as follows: 


5 DEFINT 2 
Rerun the program and note the marked improvement in speed. 
It should be noted that the mode of the variable in the FOR/NEXT 
loop sets the mode of the start, stop, and step. Also, the mode of 
an IF/THEN statement is set by the first term in the equality 


(or inequality). 


So far, we have noted what happens to an expression when begun 
with a number or a variable. If an expression begins with most any 


NUMBERS Page 38 


function (SIN, COS, SOR, PEEK, USR, INP, etc.), it is assumed 

to be floating point. If any of these expressions are encountered 
in an already defined integer expression, they will be interpreted 
as integer automatically. The only exceptions to that rule are as 
‘follows -- RND(arg) and INUM(arg) are designated integer numbers at 
ALL times. If they are encountered in a floating point expression, 
a mixed mode error will result. Likewise, RND and FNUM(arg) are 
designated floating point functions and will result in a mixed mode 
error if encountered in an integer expression. 


Note that in any of the functions where arguments are involved,’ 
the arguments are expressions in themselves. And their mode is in- 
dependent of the mode of the expression in which the function resides. 
An example should clarify that: “—* 


1% DEFINT A 

20 LET A=1¢ 

30 PR 29*SQOR(A*1Q. 3) 

Line #2@ stores an integer 1% in variable A. In line #3@, 

the expression A*1@.3 is evaluated as integer resulting in 19% as 
the argument for the SOR function. The main expression in the PR 
statement is defined as floating point since it begins with a 
number. Therefore, the result is 29%. in floating point. Again, the 
mode of the expression contained in the argument is independent of 
the mode of any other expression. The following examples and their 
results are given. Assume in all of the examples that the variables 
A, B, and C have been defined as integer. All others are floating 
point. 


1g A=2 
20 PR SQR(49.3)*A 


results in: 
14.9428 
Next: 


16 A=2 
26 PR A*SOR(49.3) 


results in: 
14 
Next: © 
PR A*RND 


results in ERR CODE 7 (a mixed mode error) since A sets the 
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expression as integer and RND with no argument must be Reena een 
point. 


PR RND*A 


results in a random floating point number between @. and 1. 
multiplied by the value of A. 


PR A*RND (19) 


results in a random integer number in the range of # to 19 
multiplied by A. 


PR 2*RND(19) 


results in a mixed mode error. Note that mixed mode errors are 
possible only with the misuse of RND, INUM, and FNUM. All other 
cases are taken care of by BASIC. 


Finally, if an expression should begin with a hex number (#XX or 
@XXXX), it will be designated as integer since most operations using 
hexidecimal numbers are integer in nature. Of course, if a hexidecimal 
is encountered within a floating point expression, it will be converted 
to floating point. 


Summarizing the mixed mode issue, one can forget it all and 
use RND to generate random numbers. No problems should ever occur. 
To increase speed set the appropriate variables to integer. Of 
course, some care should be taken when using floating point functions 
such as SIN, COS, etc. in an integer expression. BASIC will accept 
it and execute it but remember that each of the terms is first 
rounded and then entered as part of the expression. 
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BASIC is equipped with 26 variables (A-Z 
(A(expr)-Z(expr)), and 26 strings or string arrays (A$-Z$) and 
(A$ (expr) -Z$ (expr)). The 26 variables along with any restrictions 
as to floating point or integer will be explained later. 


The 26 arrays may be one or two dimensional arrays. The 
maximum size of the array is 255 in any dimension. The minimum size 
of any dimension is 1. Therefore, the largest theoretical array 
element that can exist is G(255,255) and the smallest is G(1). Any 
array that is used must first be dimensioned using a DIM statement 
which has bemexplained in greater. detail in the statement descriptions. 
An array must be dimensioned once and only once. Trying to re-dimension 
an array will result in an error message. The array space is cleared in 
several ways --- RUN, NEW, CLD, and a COLD start will clear all array 
pointers. This was mentioned earlier in the explanation of each of the 
above. It is also valuable to know how much memory is being used by 
each array. Each element in the array is four bytes long. Furthermore, 
each array has a header of five bytes. Therefore, an array that is 
dimensioned DIM A(1@, 1) contains 18% elements (1M X 18) which is 499 
bytes. of memory. Adding the five byte header brings the total memory 
used to 495 bytes for the array named "A". Similarly, array B, 
dimensioned as DIM(2), would contain 2% elements, 8% bytes plus the 
header, bring the total to 85 bytes. Seé EOD explanation to find out 
how full the data space is getting. ; an 


String capability is also provided in this version of BASIC. 
26 string variables are provided (A$-Z$). Each string can contain 
up to 95 alphanumeric characters. Also included are string arrays 
which enable the programmer to index into a table of strings via some 
numerical argument. Therefore, a string may be referenced to by A$(N) 
where N is any expression (or number) with a maximum value of 255. If 
a number greater than 255 is used erroneous results could occur. 


A string having no argument is assumed to have an argument of 
zero. For example: 


AS is equivalent to A$(Q) 


It is also important to note that NO dimensioning of any kind 
for strings is necessary. Memory is automatically allocated each time 
a string is generated. Also note that generating a string C$(1f) does 
not imply that C$(1)-C$(9) exist. In fact, only C$(1f) exists and 
trying to read C$(1) will result in an error message stating that C$(1) 
has not yet been generated. 


Commands and procedures for string manipulation are also 
provided. A MID$ command is included to extract some portion of 
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a previously defined string to be used in.a conditional statement 

or in defining a new string. See the statement description for MIDS. 
Also included is the capability of concatinating strings, that is, 

to add two strings together to forma larger string. Several examples 
are as follows: Ke 


1g AS$="NEVER" 

28 BS="THE" | 

39 LET A$(5)="LESS" 

48 LET BS$(1)=AS+BS+AS (5) 
5% PRINT BS$(1) 


Line #40 would result in the creation of new string B$(1) which 
contains the first three strings placed back-to-back --~- NEVERTHELESS 
would be printed at line #59. 


16 INPUT BS 

26 A$(1)="CONTINUE" 

38 AS$(2)="PHASE 1" 

48 AS$(3)="PHASE 2" 

5@ IF BS=AS(1)+A$(2) GOTO1ZP 
68 IF BS$=AS$(1)+A$(3) GOTO29¢ 
78 GOTO 19 


The above program would wait at line #1@ for a string to be 
entered. That string would be stored in B$. It would then be 
compared to AS(1)+A$(2) and A$(1)+AS$(3) with program execution 
transferred to the appropriate spot depending upon a match or 
mismatch. Each of the commands are described in greater detail 
elsewhere. 


The only limitation on string concatination is that any string 
generated (as a result of adding two or more previously’ defined 
strings) may not exceed the 95 character limit mentioned earlier. 


It should now be clear that BASIC provides the capability to 
build large strings out of a library of smaller ones (concatination) 
and to extract small strings out of larger ones (MIDS command). Also 
included are the following string functions explained in detail under 
FUNCTIONS. , 


CHRS (expr) 
ASC(string name) 
LEN (string name) 
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Error messages are issued when any error occurs. A table of 
error codes is listed on page 43. When an error occurs, BASIC 
returns to the direct execution mode and all data remains valid. No 
provisions are made to continue execution from that point. If the © 
error occurred during program execution, the line # at which it occurred 
will be printed. 


Two warnings are issued by BASIC. The first is a ***LIMIT 
warning indicating that some intermediate calculation has exceeded 
the floating point number limit. BASIC continues on with no subsequent 
error message. The second warning is<<MEM WARN>>. It may be encountered 
as a BASIC program is being entered. If the end of program space grows 
to within 256 bytes of the end.of the stack, the warning will be issued. 
Typing MEM at this time will give a negative number indicating how far 
into the margin area BASIC has grown. 
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- Break 

- Syntax error in ASC statement 

- Array out of range or not dimensioned at all 

- DIM error, either syntax error or memory overflow 

- DEFINT with no variable name must end in carriage return 

Missing parens in function argument 

- Missing parens in function argument 

- Mixed mode error 

- Divide by zero error 

- Non-executable function 

1l - Stack overflow in FOR/NEXT or FOR executed illegally 

12 - Syntax error in FOR statement 

13 - Stack overflow in GOSUB 

14 - Illegal character in hexidecimal field 

15 - Floating point number too large to be converted to integer 
“that is, number is >2+¢23 

16 - Illegal operator in conditional statement 

17 - Cannot execute INPUT statement in the direct mode 

18 - Must have variable or string name in READ statement 

19 - Syntax error in READ or INPUT 

20 - Syntax error in LEN statement 

21 - Syntax error in LET statement 

22 - Missing quote 

23 - Syntax error in LIST statement 

24 - No such command found in BASIC library 

25 - Syntax error in MIDS. statement 

26 - Illegal variable name found in NEXT statement 

27 - Either a number or a letter was expected 

28 - Missing arithmetic parens 

29 - Wrong number of arguments in POKE statement 

30 - Illegal last character in PRINT statement 

31 - Syntax error in DATA statement 

32 - No more DATA statement found 

33 - No such string variable found during INPUT statement 

34 - Missing equal sign in LET involving strings 

35 - Missing parens in string array entry 

36 - Too many arguments in CALL or USR 

37 - Syntax error in CHRS statement 

39 - Tape error -- file too large for memory or parity error 

42 - Illegal line end or non-executable statement 

43 - Stack overflow in trying to call interrupt routine ~ 

44 - Number entered has too many digits (>10) 

45 - Illegal character in number field 

46 - No line number found 

47 - Illegal operator in conditional statement involving strings 

48 - Memory overflow in trying to load string 

54 - No such string variable yet defined 

67 - Cannot EXIT unless GOSUB or FOR/NEXT loop 
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SYSTEM REQUIREMENTS - In order to ioad and run VP-701 BASIC, 
it is recommended to have at least 20K bytes of RAM on a VP-711 
or expanded VP-111 MicroComputer. 16K bytes of the memory are 
required to hold-the BASIC interpreter and all additional memory 
is used for work space and user program area. Memory should be 
contiguous from location GPG. 


An ASCII encoded parallel data keyboard hooked to the VP 
computer input port with negative strobe connected to EF4 is expected 
for character entry. (RCA VP-601 or VP-611 keyboards with the 
VP-62f connecting cable will work properly.) 


LOADING THE CASSETTE - The supplied cassette contains two 
programs. The first is a BOOTSTRAP program for loading and using 
BASIC and the second is the BASIC interpreter itself. To load and 
run BASIC follow these steps: 


1. Power up the system. 


2. Load in the one page BOOTSTRAP program at memory #@9% using 
the VP computer operating system. 


3. When the video screen comes back on (indicating a successful 
load), reset the VP computer. The BOOTSTRAP program has 
been preset to assume 20K of memory. If your system contains 
a different amount, it will be necessary to alter some memory 
location data: 


- load the high byte of available memory into 
location 1c. 


- load the low byte of available memory into 
location @@1F. 


4. Run the computer and press key 'B' on the hex keypad. 


Now the entire memory from G19 to 3FFF will be loaded from tape. 
(If an error occurs, the Q-line tone will beep. Rewind the cassette 
and start over.) 


RUNNING BASIC - At this point the BASIC Interpreter will have 
been loaded into memory, and BASIC is waiting for either a 'C' or 
'w' to be pressed on the ASCII keyboard for either a cold or warm 
start respectively. The cold or warm start are the two ways to start 
BASIC. A.cold. start must,be used when BASIC is just being loaded for 
the first time during any session. If a.cold start is not used, a 
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NEW command must be executed before any program generation. This 

has the effect of clearing the program space and initializing the 

work area. If, during any BASIC session, reason exists to reset 

and leave BASIC to enter the operating system, control may be passed 
back to BASIC without disturbing the stored BASIC program. Assuming 
that the BOOTSTRAP program is still intact in memory, run the 

computer, press '1l' on the hex keypad to transfer control to BASIC. 

Now by pressing 'W' on the ASCII keyboard a warm start will be initiated. 


The BOOTSTRAP program also contains a routine to write the 
entire memory from Z1%% to 3FFF to tape. This routine can be used 
to copy the BASIC Interpreter for a backup tape or to write a new 
tape if custom I/O routines have been developed. To write a tape, 
reset-run the computer, start the tape recorder for recording and 
press key 'F' on the hex keypad. The TV Gisplay will come on when 
the tape has been written. 
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VP-701 BASIC 
MEMORY ALLOCATION MAP 














a a6 BOOTSTRAP OP-SYSTEM | .25K 
PROTECTED MEMORY 1.75K 
FOR USER ) 
0800 ony 
VIP 1/0 ROUTINES 1K 
ocoo 
| DISPLAY MEMORY ae 
1000 
BASIC INTERPRETER 12K 
4000 7 , 
BASIC WORK+STORAGE 
MEMORY -5K 
4200 
BASIC PROGRAM 
STORAGE 
DATA STORAGE 
XFFF a STACK. | .25K 





sg XF HIGHEST PAGE OF USER RAM (32K MAXIMUM) 
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VP-701 VOCABULARY SUMMARY 


ABS (X) 
ASC("'X') 

ATN(X) | 

CALL (@HHHH) A,B) 
CLC 

CLS 

COLOR 

COLOR(C,X,Y) XR, YR) 
COS (X) 

DATA 

DEFINT A 


DEFUS @HHHH 


DIMA(X), DIMA(X,Y) 
DLOAD 
DISPLAY (X,Y) 
DSAVE 

END 

EOD 

EOP 

EXIT 

EXP (X) 

FIXED 

FNUM 

FOR 

FREQ = 

GET (@HHHH) 
GOKEY 


GOSUB 


VP-701 Vocabulary Summary 


Returns Absolute Value of X 

Returns the ASCII code for string character X 
Returns the Arctangent of X 

Do asin Language Routine 

Clears Color of Patterns to White 

Erases TV Screen 

Switches Background Color 

Set Foreground Color at X,Y, Optional X Repeats, Y Repeats 
Returns Cosine of X 

Stores Data for Read Statement 

Defines Variables thru Specified Variable Integer 


Defines start of BASIC Program @HHHH. Allows room for 
Machine Language Routine. 


Dimensions Arrays Where X and Y = 1 to 256, A-Any Variable 
Gets Data (Arrays & Strings) from Tape 
Display at Specified X,Y Coordinates 

Stores Data on Tape 

End of Program 

Gives End of Data Address 

Gives End of Program Address 

Leave from a For-Next Loop 

Returns ec to the X Power 

Fixes Decimal Point (1-5 places) 

Converts an integer number to floating point 
Loop Control 

Sets Frequency 0 to 255. 

Gets Video Memory at @HHHH and Displays 


Branch to Specified Line Number If Key Pressed 


Do Subroutine at Specified Line Number 
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GOTO Branch to Specified Line Number 


HLT Special Variable Set to Either 1 or @ during a SHOW or 
DISPLAY Instruction 3 


IF Conditional Statement 


Conditional Operators: 


= Equal to 
<> Not Equal To 
<= Less Than or Equal To 
>= Greater Than or Equal To 
< Less Than 
> Greater Than 
INPUT Enter Data From Keyboard 
INT (X) Gives Integer Part of Floating Point Number 
INUM Converts Floating Point to Integer 
KEY Special Variable which Contains Value of Last Key 
Pressed for GOKEY Statement 
LEN Returns the Size of a String 
LET Assign Values to Variables 
LIST List Program Lines 
LOG (X) Returns Natural LOG of (X) 
MEM Gives Memory Bytes Remaining 
MID$($, nl, n2) Isolates a substring of string $ 
NEW Clears Program Space 
NEXT Loop Control 
PEEK (@HHHH) Examine Contents of Memory 


PI Returns value of PI 
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PLOAD 

PLOT (X,Y) 

POKE (@HHHH , #HH) 
PRINT 

PSAVE 

PT= 


RUN 
SGN (X) 

SHOW(X,Y) XR,YR) 
SIN (X) 

SQR (X) 

STEP 

STORE (@HHHH) 

TAB (X) 

TIMER = 

TIME 

TONE = 

TVOFF 

TVON 

USR(@HHHH A,B) 
WAIT (X) 


**Special Keys 
@ 
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Load Program from Tape 

Plot Spot at X,Y Coordinates 

Put Data at Specified Address 
Prints on Screen 

Save Program on Tape 

Set Up Pattern for Video, Example: 
Reads Data from Data Statement 
Comments 

Resets Data Pointer 

Return from Subroutines 

Random Number, (RND(X) for Integer) 
Start Program 

Return Sign of xX 

Show PT Pattern at X,Y Coordinates, 
Returns Sine of X 

Returns Square Root of X 

Step for Loop 

Store Video at Memory Address @HHHH 
Tabs X Spaces from Left Margin 

Set Timer 1/60th's Seconds 


PT = "FF818FF" 


Optional X,Y Repeats 


Current Value of Timer, Example: Print Time 


Tone Duration 1/60th's Second 
Turns Video Off 
Turns Video On 


Returns Value from Machine Language 


Wait Specified Time 1/60th's Second, 


wait 


Hex Address 

Hex Byte 

Multi Statement 
String Designator 
Remark 


Print Abbreviation 


Routine 


"RETURN" Overrides 
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ASCII KEYBOARD HOOK-UP 
TO VIP INPUT PORT 


ASCII KEYBOARD HOOK-UP 
TO VIP INPUT PORT 





Keyboard VIP Byte I/0 Interface 
Bit Number Pin Signal Name 


Bit 1 (LSB) OA) BUS 0 (LSB) 
Bit 2 BUS 1 

Bit 3 O—-—) BUS 2 

Bit 4 (oS ep) BUS 3 

Bit 5 O—_______—) BUS 4 

Bit 6 OF) BUS 5 

Bit 7 (MSB) © (-——_——___________{H) BUS 6 

Key Down (15 ))—_____) EFS 

Strobe ( JL ) O—————————_&) Set 

Ground Oo) Ground 


Notes: 
1. If Key Down is not available, Strobe (“~) may be substituted. 
2. If data from keyboard is valid for as long as Key Down is true, 


no connection to Pin K (Set) is necessary. 
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TAPE MOTOR CONTROL CIRCUIT 
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TAPE 


CD 4051 


2 
CD 4042 
10 


MOTOR CONTROL 






+5V 
6 4 
k je READ 
2 ON / OFF 
10K 
47k 
- +5V 
o oO 
k WRITE 
= ON/OFF 
10K 
47k 


